--Matt Forbes
--Assignment 3
--Nov 6 2009

with ada.text_io;
with long_ints; use long_ints;

procedure assg3 is
    package t_io renames ada.text_io;
    a, b :LongInt;
    c : Character;
begin
    LOOP
	a := get_long_int;
	b := get_long_int;
	add_long_ints(a, b);
	t_io.new_line;
	t_io.put("Type 'q' to quit, or any other key to continue  ");
	t_io.get(c);
	t_io.new_line;
	exit when c = 'q';
    END LOOP;
end assg3;
